<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.2</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>4194</cardID>
<listID>2574</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal SearchFor, info, search, noteSize, Report, Index, oldLevel, ¬prevRoutine, nextRoutineif the version < 2.0 thenanswer "This stack requires HyperCard version 2.x." with¬"Continue" or "Go Home"if it is "Go Home" thengo homeexit openStackend ifend iflock screenput the userLevel into oldLevelset the userLevel to 3set cursor to watchhide bkgnd field Dialoghide bkgnd button "Find Next"hide bkgnd button "Cancel Find"hide cd button "go back"hide message boxput empty into SearchForput "false" into searchput "false" into infoput "Small" into noteSizeset enabled of menuItem "Background" of menu "Edit" to falseset enabled of menuItem "Icon..." of menu "Edit" to falseget the name of last menuItem of menu "Edit" -- create menuItem forif it is not "New DataManager Stack" then -- new stackput "--" after menu "Edit"put "New DataManager Stack" after menu "Edit" with ¬menuMsg "Newdatastak"end ifset commandChar of menuItem "Italic" of menu "Style" to "J"set commandChar of menuItem "Underline" of menu "Style" to "G"set commandChar of menuItem "Bold" of menu "Style" to "Y"set commandChar of menuItem "Plain" of menu "Style" to "D"if there is a card field "help" thenshow cd field "help"show card button "print help"hide cd button "update"end ifunlock screenplay "boing"flash 2end openStackon doMenu whatever --avoid the index card when navigatingif whatever is "prev" thenprevRoutineelseif whatever is "next" thennextRoutineelseif whatever is "first" thengo secondelsepass doMenuend ifend ifend ifend doMenuon doMenu menuChoiceif menuChoice is "next" thennextRoutineelsepass doMenuend ifend doMenuon prevRoutinelock screenset hilite of bkgnd button "notes" to falseset hilite of bkgnd button "archive" to falsehide bkgnd field "Archive Info"play "PaperTurn"if (short name of prev card) is "index" thengo lastelsego prev cardend ifunlock screen with visual effect shrink to topend prevRoutineon nextRoutinelock screenset hilite of bkgnd button "notes" to falseset hilite of bkgnd button "archive" to falsehide bkgnd field "Archive Info"play "PaperTurn"if (short name of next card) is "index" thengo second cardelsego nextend ifunlock screen with visual effect stretch from topend nextRoutineOn Newdatastak -- create new stack from menuItemlock screenset lockMessages to trueset cursor to watchpush cardgo card "index"show bkgnd button "index"doMenu "copy card","edit"create stack "copy of Academic DataManager" with ¬background "Academic DataManager"doMenu "paste card","edit"put empty into cd field "authorindex" of card "index"put empty into cd field "keywordindex" of card "index"put empty into cd field "numberOfCards" of card "index"go first card -- delete extra card created with "create new stack"set cantDelete of this background to falseset cantDelete of this card to falsedoMenu "Delete Card"set cantDelete of this background to truepop cardunlock screenbeep 2flash 2end Newdatastakon opencardclick at the loc of bkgnd field "author"end opencardon closeCardset hilite of background button "notes" to falseend closeCardon closeStacklock screenif the freeSize of this stack > .15 * the size of this stack thenanswer "This Stack Needs Compacting!" with "Later" or "OK"if it is "OK" thendoMenu "Compact Stack"elsepass closeStackend ifend ifglobal oldLevelset hilite of background button "notes" to falsereset menuBarset the userLevel to oldLevelunlock screenpass closeStackend closeStack</script>
